home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Windows Serial.xpl < prev    next >
Text File  |  2001-09-12  |  1KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="System\User Data"
  5. "NAME"="Windows PID"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="PID"
  8. "DESCRIPTION 1"="The Windows PID is a unique code identifying your version of Windows. You will probably never need to change this, but if you are re-installing Windows for some reason then it may be useful. If no PID is displayed, then you must type one in!"
  9. "DESCRIPTION 2"="Part of it will also appear on your Certificate of Authenticity, which you will have received if your copy of Windows came pre-loaded with your computer."
  10. "AUTHOR"="Xteq Systems"
  11. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  12. "COMMENT 1"="Done by AmoKKomA..."
  13. "CONTACTURL"="http://www.xteq.com/"
  14. "VERSION"="1.0"
  15.  
  16.  
  17.  
  18. strRegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\ProductID"
  19. strRegPathNT="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"
  20.  
  21. Sub Plugin_Initialize 
  22.  if GetWinVer=1 or GetWinVer=3 then
  23.   strValue=RegReadValue(strRegPath)
  24.  else
  25.   strValue=RegReadValue(strRegPathNT)
  26.  end if
  27.  
  28.  Call SetUIElement(1,strValue)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  strValue=GetUIElement(1)
  33.  If Len(strValue)<=0 Then
  34.   Call MsgError("You have to enter a PID!")
  35.  Else
  36.   if GetWinVer=1 or GetWinVer=3 then
  37.    Call RegWriteValue(strRegPath,strValue,1)
  38.   else
  39.    Call RegWriteValue(strRegPathNT,strValue,1)
  40.   end if
  41.  End If
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub